home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
4cmp22s.zip
/
BYTEBNCH.4TH
< prev
next >
Wrap
Text File
|
1994-10-30
|
543b
|
17 lines
( BYTE MAGAZINE BENCHMARK )
DECIMAL 256 MSDOS
8190 CONSTANT SIZE 10000 CONSTANT FLAGS ( STARTS AT 10000 )
0 0 IN/OUT : DO-PRIME FLAGS SIZE 1 FILL
0 SIZE 0
DO FLAGS I + C@
IF I 2* 3 + DUP I + FLAGS +
BEGIN DUP SIZE FLAGS + U<
WHILE DUP 0 C<- OVER + REPEAT
DROP DROP 1+
THEN
LOOP
U. ." PRIMES" CR ;
: MAIN ." 10 ITERATIONS" CR 10 0 DO DO-PRIME LOOP ;
INCLUDE FORTHLIB
END